home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
rxapfd.zip
/
TP1.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-02-01
|
858b
|
38 lines
/* rexx */
parse arg luname .
convtype = 'm'
mode = '#INTER'
synclvl = 'n'
retctl = 'a'
convstyle = 'a'
security = 'none'
sendtype = 'n'
rswd = 'y'
if rxfuncquery('rxappc') then
call rxfuncadd 'rxappc','rxappcfd','rxappcfd'
appcrc = rxappc('tp_started',,'TP1','tpid')
appcrc = rxappc('allocate',convtype,tpid,synclvl,retctl,convstyle,luname,
,mode,'TP2',security,'inf.')
convid = inf.1
appcrc = rxappc('send_data',convtype,tpid,convid,sendtype,
,'Some test data','inf.')
appcrc = rxappc('receive_and_wait',convtype,tpid,convid,rswd,500,'inf.')
do while appcrc = 0
if inf.2 = 'D' | inf.2 = 'DC' then
say '>'inf.5'<'
appcrc = rxappc('receive_and_wait',convtype,tpid,convid,rswd,500,'inf.')
end
if appcrc = 9 then
say '>'inf.5'<'
appcrc = rxappc('tp_ended',tpid,'s')
exit